10 POKE53281,0:POKE53280,0:PRINT"[147]":POKE53269,0 20 PRINTTAB(10)"[186][220][220][220][220][192] [186][220] [220] [186][220][220][220][220][220] TM 21 [153][163]10)"(null)(null) (null) (null)(null) (null) (null)(null) 22 PRINTTAB(10)"[153][220][220] [220] [220][220][220][220][220][220] [220][220] 23 [153][163]10)"LIST(null)(null) (null) (null)(null)(null)(null)(null)(null) (null)(null) (null)(null)TAN 24 PRINTTAB(10)"[153][220][220] [220] [220][220] [220] [220][220] [220] 25 [153][163]10)"(null)(null) (null) (null)(null) (null) (null)(null) (null) 26 PRINTTAB(10)"[223][220][220][220][220][169] [223][220] [220] [223][220][220][220][220][169] 27 [153]"SYS SIMULATION EINES HANDELUNTERNEHMENS 28 PRINT" [153]ENTWICKELT & PROGRAMMIERT FUER 29 [153][163]15)"PRINT#MFORAPRINT#GFORIPRINT#C FORDPRINT#IFORSPRINT#K 30 PRINTTAB(10)"@ JOERG SIESLACK 1988 31 [153]" DEFBITTE KNOPF DES JOY. PORT II DRUECKEN":[158]6[172]4096 34 [153]"ON F1 CLRDAS SPIEL STARTEN " 35 [153]" F3 CLRAUSFUERLICHE ANLEITUNG 40 J=PEEK(197):IFJ=4THEN60 41 IFJ=5THEN100 42 GOTO40 60 A=PEEK(56324):FORI=0TOA:L=INT(100*RND(1)):NEXT 61 PRINT"[147][144]NEW":PRINT"LOAD"CHR$(34)"OHG MAIN"CHR$(34)",8:":PRINT"RUN" 62 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4:END 100 PRINT"[147]"; 101 PRINTTAB(9)"[153]SPIELANLEITUNG FUER OHG 102 [153][163]9)"DEF----------------------- 103 PRINT"[155] ALS ERSTES WIRD DIE ANZAHL DER MIT- 104 [153]" SPIELER (1-4) EINGEGEBEN. 105 PRINT" JEDER MITSPIELER VERFUEGT NUN UEBER 106 [153]" EINE EIGENE FORFIRMA, LISTEINEM GRUNDKAPITAL 107 PRINT" VON [129]$ 20000 [155]UND EINEM RIESIGEN LAND- 108 [153]" STRICH IN AFRIKA. ZIEL DES SPIELES IST 109 PRINT" ES NUN, SEIN EIGENES LAND SO ZU BEBAU- 110 [153]" EN, DASS MAN GEWINNE ERZIEHLT, UM 111 PRINT" SOMIT SEINE FIRMA STAENDIG ZU VER- 112 [153]" GROESSERN. 113 PRINT" SOLLTEN SIE [129]SCHULDEN [155]MACHEN, SO BE- 114 [153]" DENKEN SIE, DASS SIE NACH MOEGLICHKEIT 115 PRINT" IHR [129]SCHULDENLIMIT [155](WIRD IN PHASE 3 116 [153]" DES SPIELES ANGEZEIGT) NICHT UEBER- 117 PRINT" SCHREITEN. DAS [129]SCHULDENLIMIT [155]WAECHST 118 [153]" MIT STEIGENDEM BESITZ. SOLLTEN SIE DEN-"; 119 [153]" NOCH MEHR SCHULDEN GEMACHT HABEN ALS 120 PRINT" SIE EIGENTLICH DURFTEN, SO STELLT SICH 121 [153]" VOR BEGINN DER 1.PHASE DIE 122 PRINT" TEILPFAENDUNG EIN.":GOSUB9980 200 PRINT"[147]"; 201 PRINTTAB(9)"[153]SPIELANLEITUNG FUER OHG 202 [153][163]9)"DEF----------------------- 203 PRINT"[155] DIE [129]PFAENDUNG [155]KANN UNTER UMSTAENDEN 204 [153]" EINIGE ZEIT IN ANSPRUCH NEHMEN (GEDULD 205 PRINT" ZEIGEN). 206 [153]" FOLGENDE FORGUETER LISTKOENNEN ZUR BEBAUUNG 207 PRINT" DES LANDES HERANGEZOGEN WERDEN: 208 [153]" 1. DATTELPLANTAGEN 209 PRINT" 2. TABAKPLANTAGEN 210 [153]" 3. TABAKFABRIKEN 211 PRINT" 4. OELBOHRUNGEN 212 [153]" LISTMAN MUSS HIERBEI FOLGENDES BEACHTEN: 213 PRINT" DATTELPLANTAGEN & TABAKPLANTAGEN 214 [153]" BRAUCHEN BEI DEM ARIDEN KLIMA IN AFRIKA"; 215 [153]" NATUERLICH KUENSTLICHE FORBEWAESSERUNGLIST, 216 PRINT" WILL MAN MISSERNTEN VERMEIDEN. AUSSER- 217 [153]" DEM DIENEN DIE TABAKPLANTAGEN DAZU, 218 PRINT" ZIGARETTEN ZU PRODUZIEREN. DOCH DIE 219 [153]" PRODUKTION VON ZIGARETTEN ERFOLGT NUR 220 PRINT" DANN, WENN AUCH MINDESTENS EINE TABAK- 221 [153]" FABRIK ZUR VERFUEGUNG STEHT. 222 PRINT" JEDE SPIELRUNDE BESTEHT AUS 5 [155]PHASEN.";:GOSUB9980 300 PRINT"[147]"; 301 PRINTTAB(9)"[153]SPIELANLEITUNG FUER OHG 302 [153][163]9)"DEF----------------------- 303 PRINT"[150] 1.PHASE (VERKAUF/ANKAUF-PHASE) 304 [153]"LIST JEDER SPIELER SIEHT DEN AKTUELLEN 305 PRINT" STAND DER MENGE SEINER GUETER UND DA- 306 [153]" RUNTER STEHEN DIE AKTUELLEN FORMARKTPREISELIST"; 307 [153]" . ES LIEGT NUN AN JEDEN SELBST, OB ER 308 PRINT" SEINE PRDUZIERTEN GUETER VERKAUFT, BE- 309 [153]" HAELT ODER GAR ZUSAETZLICHE GUETER 310 PRINT" EINKAUEFT, UM SIE VIELLEICHT SPAETER 311 [153]" WIEDER GUENSTIG ZU VERKAUFEN. 312 PRINT" ALLE ANKAUF UND VERKAUFSAKTIONEN WERDEN"; 313 PRINT" MIT HILFE DES JOYSTICKS PORT II AUSGE- 314 [153]" FUEHRT. DIE WAHL ZWISCHEN VERKAUFPHASE,"; 315 [153]" ANKAUFPHASE UND WEITERPHASE (DEF2. BILD 316 PRINT" FOLGT[155]) ERFOLGT MITTELS BETAETIGUNG DES 317 [153]" JOYSTICKS NACH OBEN (JOY.\). LISTNEBEN DEN 318 PRINT" VERKAUFS-UND ANKAUFSGUETER STEHEN 319 [153]" PFEILE, DIE IN VERSCHIEDENE RICHTUNGEN 320 PRINT" ZEIGEN. FOLGT MAN MIT DEM JOYSTICK 321 [153]" EINE DIESER RICHTUNGEN, SO BEGINNT MAN":[141]9980 400 [153]"LOAD"; 401 [153][163]9)"PRINTSPIELANLEITUNG FUER OHG 402 PRINTTAB(9)"[150]----------------------- 403 [153]"LIST MIT DER EINGABE DER MENGE DES VERKAUFS 404 PRINT" ODER KAUFPRODUKTES UND DURCH DRUECKEN 405 [153]" DES FEUERKNOPFES WIRD DIE AKTION 406 PRINT" BEENDET. 407 [153]" HAT MAN DAS VERKAUFSKRITERIUM ANGE- 408 PRINT" WAEHLT, SO KANN MAN DURCH DRUECKEN 409 [153]" DER FORF1-TASTE LISTALLE SEINE GUETER AUF 410 PRINT" EINEN SCHLAG VERKAUFEN. 411 [153]" AUSSERDEM ZEIGT DER COMPUTER DIE MENGE 412 PRINT" DES GEFALLENEN REGENS, DEN SCHULDZINS 413 [153]" UND DIE VERDUNSTUNGSRATE AN. DIESE 414 PRINT" MENGENANGABEN DIENEN ZUR INFORMATION, 415 [153]" UND BRAUCHEN NICHT WEITER BEACHTET 416 PRINT" ZU WERDEN, DENN DER [129]SCHULDZINS [155]TRITT 417 [153]" NUR DANN IN KRAFT, WENN MAN SCHULDEN 418 PRINT" HAT. UND DER AKTUELLE STAND DER WASSER-"; 419 PRINT" MENGE IM WASSERTURM ERGIBT SICH AUS DER"; 420 PRINT" GEFALLENEN REGENMENGE UND DER VERDUN- 421 [153]" STUNGSRATE, AUF DEM MAN KEINEN EINFLUSS"; 422 [153]" UEBEN KANN.":[141]9980 500 [153]"LOAD"; 501 [153][163]9)"PRINTSPIELANLEITUNG FUER OHG 502 PRINTTAB(9)"[150]----------------------- 503 [153]"DEF 2.PHASE (ARBEITSKRAEFTE) 504 PRINT"[155] IHR UNTERNEHMEN BRAUCHT NATUERLICH 505 [153]" AUCH FORARBEITSKRAEFTELIST. DIESE WERDEN IN 506 PRINT" DIESER PHASE EINGESTELLT ODER ENTLASSEN"; 507 PRINT" DABEI HANDELT ES SICH UM ARBEITER UND 508 [153]" FACHARBEITER. LETZTERE BEKOMMEN NATUER-"; 509 [153]" LICH DEUTLICH HOEHERE GEHAELTER ALS 510 PRINT" NORMALE ARBEITER. 511 [153]" WIEVIELE ARBEITER UND FACHARBEITER SIE 512 PRINT" IM EINZELNEN BENOETIGEN HAENGT VON DEM 513 [153]" AUSMASS DER BEWIRTSCHAFTUNG IHRES 514 PRINT" LANDES AB. IN DIESER PHASE ZEIGT EIN 515 [153]" SCHWARZ UMRAHMTES FELD GENAU AN, WIE- 516 PRINT" VIEL ARBEITER UND FACHARBEITER SIE PRO 517 [153]" WIRTSCHAFTSBEREICH BENOETIGEN. WENN DIE"; 518 [153]" AKTUELLEN ZAHLEN DER ARBEITER UND FACH-"; 519 [153]" ARBEITER, WELCHE STAENDIG ANGEZEIGT 520 PRINT" WERDEN, WEISS SIND, SO HABEN SIE GE- 521 [153]" NUEGEND ARBEITSKRAEFTE.":[141]9980 600 [153]"LOAD"; 601 [153][163]9)"PRINTSPIELANLEITUNG FUER OHG 602 PRINTTAB(9)"[150]----------------------- 603 [153]"LIST BEI SCHWARZER ANZEIGE HINGEGEN FEHLEN 604 PRINT" [129]ARBEITSKRAEFTE[155]. WENN SIE DIE PHASE VER-"; 605 PRINT" LASSEN WOLLEN, SO DRUECKEN SIE DEN 606 [153]" FEUERKNOPF. 607 PRINT"[150] 3.PHASE (BEBAUUNG IHRES LANDES) 608 [153]"LIST SIE SEHEN JETZT EINE AUSWAHL DER WIRT- 609 PRINT" SCHAFTSGUETER, DIE SIE ANBAUEN KOENNEN 610 [153]" (JEDES PRODUKT HAT EINEN SPEZIELLEN 611 PRINT" PREIS). 612 [153]" DURCH VERTIKALES BETAETIGEN DES JOY- 613 PRINT" STICKS WAEHLEN SIE ZWISCHEN DEN EIN- 614 [153]" ZELNEN GUETERN. DANN DREUCKEN SIE DEN 615 PRINT" FEUERKNOPF UND IHR LAND ERSCHEINT IN 616 [153]" VOGELPERSPEKTIVE. NUN KOENNEN SIE 617 PRINT" MIT HILFE EINES QUADRATES EINEN STAND- 618 [153]" ORT AUSSUCHEN. WOLLEN SIE DAS BILD 619 PRINT" WIEDER VERLASSEN, SO DRUECKEN SIE ENT- 620 [153]" WEDER F1 ODER DEN JOYSTICK SCHRAEG 621 PRINT" NACH LINKS OBEN.":GOSUB9980 700 PRINT"[147]"; 701 PRINTTAB(9)"[153]SPIELANLEITUNG FUER OHG 702 [153][163]9)"DEF----------------------- 703 PRINT"[150] WICHTIG HIER: 704 [153]"LIST1.ES KOENNEN NUR ABSOLUT FORFREIE GEBIETELIST 705 PRINT" BENUTZT WERDEN. HIERZU MUSS MEIST 706 [153]" ERST EIN FREIES GEBIET DURCH DAS 707 PRINT" KRITERIUM [LAND RODEN[155]] GESCHAFFEN 708 [153]" WERDEN. 709 PRINT"2.DIE SUCHE NACH OEL IST NICHT IMMER 710 [153]" MIT ERFOLG GEKROENT. 711 PRINT"3.[129]GIFT [155]SOLLTE NUR VERSPRUEHT WERDEN, 712 [153]" WENN IHR LAND VON EINER INSEKTENPLAGE 713 PRINT" HEIMGESUCHT WIRD (KANN TEUER WERDEN). 714 [153]"4.FORRAKETENANGRIFFE LISTSIND TEUER UND SOLLTEN"; 715 [153]" NUR DANN ANGEWENDET WERDEN, WENN IHR 716 PRINT" MITSPIELER BEREITS EIN BEACHTLICHES 717 [153]" UNTERNEHMEN AUFGEBAUT HAT. 718 PRINT" DURCH BETAETIGEN DES JOYSTICKS NACH 719 [153]" FORLINKS LISTGEHT ES DANN IN DIE NAECHSTE 720 PRINT" PHASE.":GOSUB9980 800 PRINT"[147]"; 801 PRINTTAB(9)"[153]SPIELANLEITUNG FUER OHG 802 [153][163]9)"DEF----------------------- 803 PRINT"[150] 4.PHASE (BEWAESSERUNG) 804 [153]"LIST GEBEN SIE DIE NOTWENDIGE WASSERMENGE 805 PRINT" MIT DEM JOYSTICK EIN. 806 [153]" DOCH SIE KOENNEN NICHT MEHR WASSER 807 PRINT" VERTEILEN ALS SIE BESITZEN. EINE 808 [153]" UEBERWAESSERUNG WIRKT SICH WEDER POSI- 809 PRINT" TIV NOCH NEGATIV AUS. SOLLTE DEN PFLA- 810 [153]" ZEN ABER EIN GEWISSER PROZENTSATZ AN 811 PRINT" WASSER FEHLEN, SO ERNTEN SIE AUTOMAT- 812 [153]" ISCH ETWAS WENIGER ALS BEI VOLLER BE- 813 PRINT" WAESSERUNG. 814 [153]"DEF 5.PHASE (ERNTE UND WIRTSCHAFT) 815 PRINT"[155] DIESE PHASE IST DIE WOHL WICHTIGSTE 816 [153]" UND LETZTE PHASE. DENN HIER WIRD AUFGE-"; 817 [153]" LISTET, WIEVIEL SIE VON JEDEM PRODUKT 818 PRINT" GEERNTET HABEN. DIE ERNTEMENGE UNTER- 819 [153]" LIEGT SELBSTVERSTAENDLICH NATUERLICHEN":[141]9980 900 [153]"LOAD"; 901 [153][163]9)"PRINTSPIELANLEITUNG FUER OHG 902 PRINTTAB(9)"[150]----------------------- 904 [153]"LIST SCHWANKUNGEN, ABER ZU WENIG BEWAESSER- 905 PRINT" UNG UND ARBEITSKRAEFTE FUEHREN MEIST 906 [153]" ZU EINER MINDERUNG DER ERTRAEGE. 907 PRINT" GLEICHZEITIG WERDEN HIER DIE GEHAELTER 908 [153]" FUER IHRE BESCHAEFTIGTEN FAELLIG. AUCH 909 PRINT" DIE GEHAELTER UNTERLIEGEN GEWISSEN 910 [153]" SCHWANKUNGEN, DOCH WERDEN DIE GEHAELTER"; 911 [153]" AUTOMATISCH VON IHREM VERMOEGEN ABGE- 912 PRINT" ZOGEN UND SOMIT BRAUCHEN SIE SICH NICHT"; 913 PRINT" PERSOENLICH UEBER DIE HOEHE DER SUMME, 914 [153]" DEN KOPF ZU ZERBRECHEN. 915 PRINT" NACH DEM KNOPFDRUCK SIND DIE ANDEREN 916 [153]" MITSPIELER AN DER REIHE UND DUERFEN 917 PRINT" IHR KOENNEN IN DER WIRTSCHAFT UNTER 918 [153]" BEWEISS STELLEN. 919 PRINT" DIE ANLEITUNG HOERT SICH KOMPLIZIERT 920 [153]" UND SCHWIERIG AN, DOCH IM SPIEL SELBST 921 PRINT" ERKLAEREN SICH DIE DINGE MEIST VON AL-" 922 PRINT" LEINE. ALSO, NUR MUT UND VIEL SPASS !!!"; 923 GOSUB9980:PRINT"[147][153] WOLLEN SIE DIE ANLEITUNG NOCH EINMAL 924 [153][163]14)"LESEN (J/N)" 925 [161]A$:[139]A$[178]"J"[167]100 926 [139]A$[178]"N"[167]60 927 [137]925 9980 [151]211,11:[151]214,24:[158]58640:[153]"CONTBITTE F1 DRUECKEN"; 10000 J[178][194](197):[139]J[178]4[167][142] 10001 [137]10000